home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Signs.Dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  829 b   |  33 lines
  1. on catSpeak soundName
  2.   set the castNum of sprite 46 to the number of cast "turn1"
  3.   updateStage()
  4.   wait(4)
  5.   set the castNum of sprite 46 to the number of cast "turn2"
  6.   updateStage()
  7.   wait(4)
  8.   set the castNum of sprite 46 to the number of cast "turn3"
  9.   updateStage()
  10.   wait(4)
  11.   puppetSound(soundName)
  12.   updateStage()
  13.   repeat while soundBusy(1)
  14.     set temp to random(5)
  15.     set CatHead to the number of cast ("speak" & temp)
  16.     set the castNum of sprite 46 to CatHead
  17.     updateStage()
  18.     wait(4)
  19.   end repeat
  20.   wait(10)
  21.   set the castNum of sprite 46 to the number of cast "turn3"
  22.   updateStage()
  23.   wait(4)
  24.   set the castNum of sprite 46 to the number of cast "turn2"
  25.   updateStage()
  26.   wait(4)
  27.   set the castNum of sprite 46 to the number of cast "turn1"
  28.   updateStage()
  29.   wait(4)
  30.   puppetSound(0)
  31.   updateStage()
  32. end
  33.